* uniquify.el (uniquify-get-proposed-name): Handle remote files.

diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index 07772bd6cda65545d69aced12eab505b0861d541..a5614fd269c94c642e441497b9afe3c1b704dfb8 100644 (file)
--- a/lisp/uniquify.el
+++ b/lisp/uniquify.el
@@ -360,7 +360,8 @@ in `uniquify-list-buffers-directory-modes', otherwise returns nil."
          (setq dirname (directory-file-name dirname)))
        (setq n (1- n))
        (push (if (zerop (length file)) ;nil or "".
-                 (prog1 "" (setq dirname nil)) ;Could be `dirname' iso "".
+                 (prog1 (or (file-remote-p dirname) "")
+                   (setq dirname nil)) ;Could be `dirname' iso "".
                file)
              extra-string)))
     (when (zerop n)